home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / MacApp Documentation / MacApp AppleLink Messages / MacApp.Tech$ Oct 89 / Z0156-Re On Using ISO-Oct89 < prev    next >
Encoding:
Text File  |  1989-10-23  |  1.6 KB  |  59 lines  |  [TEXT/GEOL]
  1. Item    5769635                         23-Oct-89        11:40
  2.  
  3. From:   D2086                           Efficient Field Svc, C Faith,PRT
  4.  
  5. To:     AUST0134                        Jam Software Sydney
  6.  
  7. cc:     MACAPP.TECH$                    MACAPP Tech
  8.  
  9. Sub:    RE- On Using ISO
  10.  
  11. Tseung,
  12.  
  13. The Docs that come with InsideOut concerning MacApp are in error.  The OVERRIDE
  14. for Tapplication.GetEvent as specified below fixes this problem.  I have
  15. discussed this problem with Shana and this was their suggested fix.  I now have
  16. no problems at all with the ISO debugger, and I love it.
  17.  
  18. I put the OVERRIDE itself in {$IFC qDebug } since there is no need to even
  19. OVERRIDE GetEvent with debugging turned off.
  20.  
  21. TISOApp = OBJECT(TApplication)
  22.  
  23.    FUNCTION TISOApp.DoIdle(phase: IdlePhase): Boolean; OVERRIDE;
  24.  
  25. {$IFC qDebug } { Only needs events in Debug version }
  26.     FUNCTION  TISOApp.GetEvent(eventMask: INTEGER; sleep: LONGINT;
  27.             cursorRgn: RgnHandle;
  28.             VAR anEvent: EventRecord): BOOLEAN; OVERRIDE;
  29. {$ENDC }
  30.  
  31.     END;
  32.  
  33. {$IFC qDebug } { Only needs events in Debug version }
  34. {-----------------------------------+}
  35. {| GetEvent                         |}
  36. {+-----------------------------------}
  37. {$S ADBRes}
  38. FUNCTION  TISOApp.GetEvent(eventMask: INTEGER; sleep: LONGINT;
  39.         cursorRgn: RgnHandle;
  40.         VAR anEvent: EventRecord): BOOLEAN; OVERRIDE;
  41. VAR
  42.     done:  Boolean;
  43.  
  44. BEGIN
  45. Repeat
  46.     Done := TRUE;
  47.     GetEvent := INHERITED GetEvent(eventMask,sleep,cursorRgn,anEvent);
  48.     DBUnloadSeg;
  49.     IF ISOEvent(anEvent) THEN
  50.     Done := False;
  51. Until Done;
  52. END;
  53. {$ENDC }
  54.  
  55. Hope this helps,
  56.  
  57. Curtis Faith
  58.  
  59.